Seg function

  DECLARATION:  Seg(x);

      PURPOSE:  Returns the segment of a specified object

         UNIT:  System

  RESULT TYPE:  Word

      REMARKS:  x may be any variable, or procedure or function identifier.
                The result is the segment part of the address of x.